﻿Public Class ven_facttemp

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        tempc = Convert.ToSingle(txt_tempop.Text)
        tempf = 1.8 * tempc + 32
        kd = 0.975 + 0.432 * (10 ^ (-3)) * tempf - 0.115 * (10 ^ (-5)) * (tempf ^ 2) + 0.104 * (10 ^ (-8)) * (tempf ^ 3) - 0.595 * (10 ^ (-12)) * (tempf ^ 4)
        Me.Close()
    End Sub
End Class